5 PRINT"[147]"
10 PRINT"NOTE:  THIS PROGRAM IS DESIGNED TO BE"
20 PRINT"       USED AS A SUBROUTINE FOR FAST"
30 PRINT"       CHARACTER SET TRANSFER IN YOUR"
40 PRINT"       OWN PROGRAMS.  SEE THE MARCH"
50 PRINT"       GAZETTE ARTICLE FOR PROPER USE."
60 PRINT"       TO RELOAD MENU, PRESS RUN-STOP/         RESTORE,";
70 PRINT" THEN TYPE LOAD"CHR$(34)"MENU"CHR$(34)",8"
90 POKE56,14*4:CLR:POKE53272,(PEEK(53272)AND240)OR14
100 AD=828:REM STARTING ADDRESS
110 FORI=ADTOAD+81:READA:X=X+A:POKEI,A:NEXTI
120 IFX<>9923THENPRINT"ERROR IN DATA STATEMENTS.":STOP
130 SYSAD
140 DATA 173,14,220,41,254,141,14
150 DATA 220,173,24,208,41,14,10
160 DATA 10,133,167,169
170 DATA 208:REM CHANGE TO 216 TO MOVE LOWER CASE
180 DATA 133,252,173,0,221,41,3,73,3
190 DATA 10,10,10,10,10,10,5
200 DATA 167,133,254,165,1,41,251
210 DATA 133,1,169,0,133,251,133
220 DATA 253,168,162,8,177,251,145
230 DATA 253,200,208,249,230,252,230
240 DATA 254,202,208,242,165,1,9
250 DATA 4,133,1,173,14,220,9
260 DATA 1,141,14,220,96
1000 FORI=14336TO14343:READA:POKEI,A:NEXT
1010 DATA  60,66,165,129,165,153,66,60